home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Voice_Appl1946061142005.psc / Voice Access / frmCommands.frm next >
Text File  |  2005-10-28  |  3KB  |  130 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCommands 
  3.    BackColor       =   &H80000007&
  4.    BorderStyle     =   5  'Sizable ToolWindow
  5.    Caption         =   "Commands Management"
  6.    ClientHeight    =   4440
  7.    ClientLeft      =   60
  8.    ClientTop       =   300
  9.    ClientWidth     =   4050
  10.    Icon            =   "frmCommands.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4440
  15.    ScaleWidth      =   4050
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin VB.CommandButton cmdPlay 
  19.       Caption         =   "Play"
  20.       Height          =   495
  21.       Left            =   2040
  22.       TabIndex        =   1
  23.       Top             =   3960
  24.       Width           =   2055
  25.    End
  26.    Begin VB.ListBox List1 
  27.       Appearance      =   0  'Flat
  28.       BackColor       =   &H80000001&
  29.       ForeColor       =   &H00FFFFFF&
  30.       Height          =   3930
  31.       Left            =   0
  32.       TabIndex        =   3
  33.       Top             =   0
  34.       Width           =   4095
  35.    End
  36.    Begin VB.ListBox List2 
  37.       Height          =   255
  38.       Left            =   5640
  39.       TabIndex        =   2
  40.       Top             =   4560
  41.       Width           =   135
  42.    End
  43.    Begin VB.CommandButton cmdDel 
  44.       Appearance      =   0  'Flat
  45.       Caption         =   "Delete"
  46.       Height          =   495
  47.       Left            =   0
  48.       TabIndex        =   0
  49.       Top             =   3960
  50.       Width           =   2055
  51.    End
  52. End
  53. Attribute VB_Name = "frmCommands"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Option Explicit
  59.  
  60. Dim Ini As String, i As Integer
  61.  
  62. Private Sub cmdDel_Click()
  63. Dim Path1 As String, ind As Integer
  64.     'Delete a defined command
  65.     ind = List1.ListIndex
  66.     Path1 = List1.List(ind) & "=" & List2.List(ind)
  67.     
  68.     Ini = Replace(Ini, Path1, "")
  69.     Open CommandsFld & "Commands.ini" For Output As #1
  70.         Print #1, Ini
  71.     Close #1
  72.     List1.RemoveItem (ind)
  73.     
  74.     ResetWave
  75.     Kill List2.List(ind)
  76.     List2.RemoveItem (ind)
  77. End Sub
  78.  
  79. Private Sub cmdPlay_Click()
  80. sndPlaySound List2.List(List1.ListIndex), 1
  81. End Sub
  82.  
  83. Private Sub Form_Load()
  84. Dim str As String, str2() As String, PrecStr() As String, i As Integer, count As Integer
  85. ReDim str2(1): ReDim PrecStr(1)
  86.  
  87. 'Get all predefined commands
  88. Open CommandsFld & "Commands.ini" For Input As #1
  89. Do While EOF(1) = False
  90.     Input #1, str
  91.     If str <> "" Then
  92.         
  93.         For i = 1 To UBound(PrecStr)
  94.             If str = PrecStr(i) Then GoTo Nxt
  95.         Next i
  96.         
  97.         count = count + 1
  98.         ReDim Preserve PrecStr(count)
  99.         PrecStr(count) = str
  100.         
  101.         Ini = Ini & vbCrLf & str
  102.         str2 = Split(str, "=")
  103.         List1.AddItem str2(0)
  104.         List2.AddItem str2(1)
  105.     End If
  106.     
  107. Nxt:
  108. Loop
  109. Close #1
  110.  
  111. End Sub
  112.  
  113. Private Sub Form_Resize()
  114. On Error Resume Next
  115.     List1.Width = Me.Width
  116.     List1.Height = Me.Height - 820
  117.     cmdDel.Top = Me.Height - 840
  118.     cmdPlay.Top = cmdDel.Top
  119.     
  120.     cmdPlay.Width = Me.Width / 2
  121.     cmdDel.Width = cmdPlay.Width
  122.     cmdPlay.Left = cmdDel.Width
  123. End Sub
  124.  
  125. Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  126. Dim ind As Integer
  127.     ind = Y / 240
  128.     List1.ToolTipText = List1.List(ind)
  129. End Sub
  130.